home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs05.d81 / evsbasic.arc / SHUTTLE.DMO (.txt) < prev   
Commodore BASIC  |  2009-10-10  |  4KB  |  213 lines
  1. 1 REM *SHUTTLE ESCAPE
  2. 2 REM * ORIGINALLY APPEARED IN
  3. 3 REM * COMPUTE!'S FIRST BOOK OF C64
  4. 4 REM * SOUND AND GRAPHICS, 1983
  5. 5 REM * BY ERIC BRANDON
  6. 6 REM *MODIFIED FOR EVSBASIC
  7. 7 REM * BY ANTON TREUENFELS
  8. 8 :
  9. 100 PRINTCHR$(142)
  10. 110 GOSUB3000
  11. 120 GOSUB4000
  12. 130 :
  13. 140 X=0:Y=180
  14. 150 (null) 1,X,Y
  15. 160 (null) 2,X,Y-21
  16. 170 (null) 3,X-2,Y+21
  17. 180 (null) 0,11,1:(null) 3,8
  18. 190 (null) 1,1
  19. 200 (null) 2,2
  20. 210 (null) 3,3
  21. 220 FORI=1TO500:NEXT
  22. 230 (null) 0,255,0,0,0,0,0
  23. 240 (null) 0,7,1
  24. 250 GOSUB2000
  25. 260 P=1:C=0
  26. 270 (null)
  27. 280 Q=Q+.01*P
  28. 290 P=P+.1:C=C+1
  29. 300 IFC>40THENI1=14-I1:(null) 3,I1
  30. 310 Y=Y-Q
  31. 320 (null) 1,X,Y
  32. 330 (null) 2,X,Y-21
  33. 340 (null) 3,X-2,Y+21
  34. 350 (null) ,P2
  35. 360 P2=P2+P2/244
  36. 370 IFC=20THEN(null) 3,,,,1
  37. 380 IFC=40THEN(null) 3,,,,0:I1=10
  38. 390 IFC=60THEN(null) 3,,,,1
  39. 400 (null) (null) C<70
  40. 410 (null) 1,5
  41. 420 (null) 4,6:(null) 4,X,Y:(null) 4,1
  42. 430 C2=0
  43. 440 (null)
  44. 450 Q=Q+.01*P
  45. 460 P=P+.1:C=C+1:C2=C2+.6
  46. 470 Y=Y-Q
  47. 480 I1=14-I1:(null) 3,I1
  48. 490 (null) 1,X,Y
  49. 500 (null) 3,X-2,Y+21
  50. 510 NR=Y+C2*C2:NC=X+C2*3
  51. 520 (null) 4,NC,NR
  52. 530 (null) 2,NC,NR-21
  53. 540 (null) ,P2
  54. 550 P2=P2+P2/244
  55. 560 IFC=83THEN(null) 4,7:(null) 2,9
  56. 570 IFC=86THEN(null) 4,8
  57. 580 IFC=89THEN(null) 0,10,0
  58. 590 (null) (null) Y>0
  59. 600 (null) 1,11*256,0
  60. 610 (null)
  61. 620 Y=Y-2
  62. 630 I1=14-I1:(null) 3,I1
  63. 640 (null) 1,X,Y
  64. 650 (null) 3,X-2,Y+21
  65. 660 (null) (null) Y>-20
  66. 670 (null)
  67. 680 Y=Y-2
  68. 690 I1=14-I1:(null) 3,I1
  69. 700 (null) 3,X-2,Y+21
  70. 710 (null) (null) Y>-55
  71. 720 (null) 3,0
  72. 730 FORI=1TO1000:NEXT
  73. 740 PRINT"     ORBIT ACHIEVED...."
  74. 750 FORI=1TO1000:NEXT
  75. 760 (null) 1,0
  76. 770 FORI=-24TO344
  77. 780 (null) 1,I,100
  78. 790 NEXT
  79. 800 FORI=1TO1000:NEXT
  80. 810 END
  81. 820 :
  82. 2000 (null) 1,1,0,3,5
  83. 2010 (null) 15
  84. 2020 (null) 1,0,0,15,15,0
  85. 2030 (null) 1,3
  86. 2040 (null) 1,11*256
  87. 2050 P2=100
  88. 2060 RETURN
  89. 2070 :
  90. 3000 (null)1:(null)0,0
  91. 3010 (null)0,5
  92. 3020 PRINTTAB(12)"[154][169]             [169]  "
  93. 3030 PRINTTAB(12)"         "
  94. 3040 PRINTTAB(12)"[223] [223]          "
  95. 3050 PRINTTAB(12)"         "
  96. 3060 PRINTTAB(12)"  [146][169]  [146][223] [146][169]  [146][223]  [146][223]  "
  97. 3070 PRINT
  98. 3080 PRINTTAB(12)"[159][169]  [169]  [169]  [169] [223]  [223][169]  "
  99. 3090 PRINTTAB(12)"        "
  100. 3100 PRINTTAB(12)"  [146][223] [223]      [146][169]  "
  101. 3110 PRINTTAB(12)"       "
  102. 3120 PRINTTAB(12)"[223]    [146][169][223]     [146][223]  "
  103. 3130 RETURN
  104. 3140 :
  105. 4000 TI$="000000":RESTORE5000
  106. 4005 FORI=0TO10
  107. 4010 PRINT"READY IN";(null)(1-INT(TI/60),"#0#");" SECONDS "
  108. 4015 B$=""
  109. 4020 FORJ=0TO7:READA$:B$=B$+A$:NEXT
  110. 4025 (null)I,(null)(B$)
  111. 4030 NEXT
  112. 4035 RETURN
  113. 4040 :
  114. 5000 DATA"0000000000000000"
  115. 5001 DATA"001800001C00001F"
  116. 5002 DATA"00001FFFF01FFF08"
  117. 5003 DATA"14FFFE1F7FFF1E3F"
  118. 5004 DATA"FE18000000000000"
  119. 5005 DATA"0000000000000000"
  120. 5006 DATA"0000000000000000"
  121. 5007 DATA"0000000000000000"
  122. 5008 :
  123. 5010 DATA"0047C000F7C000F7"
  124. 5011 DATA"C001FFC002FFC002"
  125. 5012 DATA"FFC002F7C002F7C0"
  126. 5013 DATA"03F7C003F7C003F7"
  127. 5014 DATA"C003F7C003F7C003"
  128. 5015 DATA"F7C003FFC003FFC0"
  129. 5016 DATA"0767C00767C00FE5"
  130. 5017 DATA"801F77801FF00000"
  131. 5018 :
  132. 5020 DATA"0000000000000000"
  133. 5021 DATA"0000000000000000"
  134. 5022 DATA"0000000000000000"
  135. 5023 DATA"0000000000000000"
  136. 5024 DATA"0000000000000000"
  137. 5025 DATA"0000000000000000"
  138. 5026 DATA"000380000FC0000F"
  139. 5027 DATA"C0000FC0000FC000"
  140. 5028 :
  141. 5030 DATA"01FC0001740001D4"
  142. 5031 DATA"0000580000500000"
  143. 5032 DATA"0000000000000000"
  144. 5033 DATA"0000000000000000"
  145. 5034 DATA"0000000000000000"
  146. 5035 DATA"0000000000000000"
  147. 5036 DATA"0000000000000000"
  148. 5037 DATA"0000000000000000"
  149. 5038 :
  150. 5040 DATA"01FC0001FC0001FC"
  151. 5041 DATA"0001FE0007F80006"
  152. 5042 DATA"F90002FB00067A00"
  153. 5043 DATA"03F20000F80000F8"
  154. 5044 DATA"00003C0000780000"
  155. 5045 DATA"3800003800006000"
  156. 5046 DATA"0060000008000020"
  157. 5047 DATA"0000000000000000"
  158. 5048 :
  159. 5050 DATA"00400000F00000F0"
  160. 5051 DATA"0001F00002F00002"
  161. 5052 DATA"F00002F00002F000"
  162. 5053 DATA"03F00003F00003F0"
  163. 5054 DATA"0003F00003F00003"
  164. 5055 DATA"F00003F00003F000"
  165. 5056 DATA"0760000760000FE0"
  166. 5057 DATA"001F70001FF00000"
  167. 5058 :
  168. 5060 DATA"0007C00007C00007"
  169. 5061 DATA"C00007C00007C000"
  170. 5062 DATA"07C00007C00007C0"
  171. 5063 DATA"0007C00007C00007"
  172. 5064 DATA"C00007C00007C000"
  173. 5065 DATA"07C00007C00007C0"
  174. 5066 DATA"0007C00007C00007"
  175. 5067 DATA"C000038000000000"
  176. 5068 :
  177. 5070 DATA"0002000007C00007"
  178. 5071 DATA"C00006C00004C000"
  179. 5072 DATA"03400006C00001C0"
  180. 5073 DATA"0004000007C00007"
  181. 5074 DATA"800007400007C000"
  182. 5075 DATA"01C00005C0000640"
  183. 5076 DATA"0007C00007C00000"
  184. 5077 DATA"8000038000000000"
  185. 5078 :
  186. 5080 DATA"0002000001000006"
  187. 5081 DATA"4000004000048000"
  188. 5082 DATA"0340000600000100"
  189. 5083 DATA"0000000000000000"
  190. 5084 DATA"8000014000060000"
  191. 5085 DATA"0100000500000640"
  192. 5086 DATA"0000000004000000"
  193. 5087 DATA"8000038000000000"
  194. 5088 :
  195. 5090 DATA"0000000000000000"
  196. 5091 DATA"0000000000000000"
  197. 5092 DATA"0000000000000000"
  198. 5093 DATA"0000000000000000"
  199. 5094 DATA"0000000000000000"
  200. 5095 DATA"0000000000000000"
  201. 5096 DATA"0001800006800002"
  202. 5097 DATA"400005C000038000"
  203. 5098 :
  204. 5100 DATA"01FC0001FC0001EC"
  205. 5101 DATA"00017E0003F80002"
  206. 5102 DATA"780000F800007800"
  207. 5103 DATA"0070000078000078"
  208. 5104 DATA"0000300000300000"
  209. 5105 DATA"0000000000000000"
  210. 5106 DATA"0000000000000000"
  211. 5107 DATA"0000000000000000"
  212. 5108 :
  213.